|
44
|
How do I enable the cross link support ( rectangular )
With Exswimlane1
With .Elements
.Add("Element <sha ;;0>A")
.Add("Element <sha ;;0>B",0,76)
With .Add("Element <sha ;;0>C",-76,32)
.AutoSize = False
.Height = 32
End With
With .Add("Element <sha ;;0>D",76,32)
.AutoSize = False
.Height = 32
End With
End With
With .Links
With .Add(Exswimlane1.Elements.Item(1),Exswimlane1.Elements.Item(2))
.StartPos = exontrol.EXSWIMLANELib.AlignmentEnum.CenterAlignment
.EndPos = exontrol.EXSWIMLANELib.AlignmentEnum.CenterAlignment
End With
With .Add(Exswimlane1.Elements.Item(2),Exswimlane1.Elements.Item(1))
.StartPos = exontrol.EXSWIMLANELib.AlignmentEnum.CenterAlignment
.EndPos = exontrol.EXSWIMLANELib.AlignmentEnum.CenterAlignment
End With
.Add(Exswimlane1.Elements.Item(3),Exswimlane1.Elements.Item(4))
With .Add(Exswimlane1.Elements.Item(4),Exswimlane1.Elements.Item(3))
.StartPos = exontrol.EXSWIMLANELib.AlignmentEnum.LeftAlignment
.EndPos = exontrol.EXSWIMLANELib.AlignmentEnum.RightAlignment
End With
End With
.ShowLinks = exontrol.EXSWIMLANELib.ShowExtendedLinksEnum.exShowCrossLinksRect Or exontrol.EXSWIMLANELib.ShowExtendedLinksEnum.exShowExtendedLinks
End With
|
|
43
|
How do I show a link frmo bottom to top, or reverse, not from left to right
With Exswimlane1
With .Elements
.Add("Element <sha ;;0>A")
.Add("Element <sha ;;0>B",0,64)
End With
With .Links
With .Add(Exswimlane1.Elements.Item(1),Exswimlane1.Elements.Item(2))
.StartPos = exontrol.EXSWIMLANELib.AlignmentEnum.CenterAlignment
.EndPos = exontrol.EXSWIMLANELib.AlignmentEnum.CenterAlignment
End With
End With
End With
|
|
42
|
Is it possible to control the links, so that they are always centered
With Exswimlane1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add(Exswimlane1.Elements.Item("A"),Exswimlane1.Elements.Item("B"))
.Add(Exswimlane1.Elements.Item("A"),Exswimlane1.Elements.Item("C"))
.Add(Exswimlane1.Elements.Item("B"),Exswimlane1.Elements.Item("D"))
.Add(Exswimlane1.Elements.Item("B"),Exswimlane1.Elements.Item("C"))
End With
.ShowLinks = exontrol.EXSWIMLANELib.ShowExtendedLinksEnum.exShowLinks
.set_DefArrange(exontrol.EXSWIMLANELib.DefArrangeEnum.exDefArrangeDir,1)
.Arrange()
End With
|
|
41
|
What options to align the elements do I have if I use Arrange method
Dim h1,h2,h3
With Exswimlane1
.BeginUpdate()
.ShowGridLines = True
With .Elements
h1 = .Add("Top Alignment").ID
.Add("Element")
.Add("Element")
.Add("Element")
h2 = .Add("Center Alignment",Nothing,96).ID
.Add("Element",Nothing,96)
.Add("Element",Nothing,96)
.Add("Element",Nothing,96)
h3 = .Add("Bottom Alignment",Nothing,178).ID
.Add("Element",Nothing,192)
.Add("Element",Nothing,192)
.Add("Element",Nothing,192)
End With
With .Links
.Add(Exswimlane1.Elements.Item(1),Exswimlane1.Elements.Item(2))
.Add(Exswimlane1.Elements.Item(1),Exswimlane1.Elements.Item(3))
.Add(Exswimlane1.Elements.Item(2),Exswimlane1.Elements.Item(4))
.Add(Exswimlane1.Elements.Item(2),Exswimlane1.Elements.Item(3))
.Add(Exswimlane1.Elements.Item(5),Exswimlane1.Elements.Item(6))
.Add(Exswimlane1.Elements.Item(5),Exswimlane1.Elements.Item(7))
.Add(Exswimlane1.Elements.Item(6),Exswimlane1.Elements.Item(8))
.Add(Exswimlane1.Elements.Item(6),Exswimlane1.Elements.Item(7))
.Add(Exswimlane1.Elements.Item(9),Exswimlane1.Elements.Item(10))
.Add(Exswimlane1.Elements.Item(9),Exswimlane1.Elements.Item(11))
.Add(Exswimlane1.Elements.Item(10),Exswimlane1.Elements.Item(12))
.Add(Exswimlane1.Elements.Item(10),Exswimlane1.Elements.Item(11))
End With
.set_DefArrange(exontrol.EXSWIMLANELib.DefArrangeEnum.exDefArrangeAlign,0)
.Arrange(h1)
.set_DefArrange(exontrol.EXSWIMLANELib.DefArrangeEnum.exDefArrangeAlign,1)
.Arrange(h2)
.set_DefArrange(exontrol.EXSWIMLANELib.DefArrangeEnum.exDefArrangeAlign,2)
.Arrange(h3)
.EndUpdate()
End With
|
|
40
|
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it
With Exswimlane1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add(Exswimlane1.Elements.Item("A"),Exswimlane1.Elements.Item("B"))
.Add(Exswimlane1.Elements.Item("A"),Exswimlane1.Elements.Item("C"))
.Add(Exswimlane1.Elements.Item("B"),Exswimlane1.Elements.Item("D"))
.Add(Exswimlane1.Elements.Item("B"),Exswimlane1.Elements.Item("C"))
End With
.Arrange()
End With
|
|
39
|
Is it possible to change the distance between elements, when calling the Arrange method
With Exswimlane1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add(Exswimlane1.Elements.Item("A"),Exswimlane1.Elements.Item("B"))
.Add(Exswimlane1.Elements.Item("A"),Exswimlane1.Elements.Item("C"))
.Add(Exswimlane1.Elements.Item("B"),Exswimlane1.Elements.Item("D"))
.Add(Exswimlane1.Elements.Item("B"),Exswimlane1.Elements.Item("C"))
End With
.set_DefArrange(exontrol.EXSWIMLANELib.DefArrangeEnum.exDefArrangeDX,0)
.set_DefArrange(exontrol.EXSWIMLANELib.DefArrangeEnum.exDefArrangeDY,0)
.Arrange()
End With
|
|
38
|
How do I organize vertically the elements
With Exswimlane1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add(Exswimlane1.Elements.Item("A"),Exswimlane1.Elements.Item("B"))
.Add(Exswimlane1.Elements.Item("A"),Exswimlane1.Elements.Item("C"))
.Add(Exswimlane1.Elements.Item("B"),Exswimlane1.Elements.Item("D"))
.Add(Exswimlane1.Elements.Item("B"),Exswimlane1.Elements.Item("C"))
End With
.ShowLinksType = exontrol.EXSWIMLANELib.ShowLinkTypeEnum.exLinkStraight
.set_DefArrange(exontrol.EXSWIMLANELib.DefArrangeEnum.exDefArrangeDir,1)
.Arrange()
End With
|
|
37
|
How can I add programatically a link
With Exswimlane1
With .Elements
.Add("Element <sha ;;0>A")
.Add("Element <sha ;;0>B",96,24)
End With
With .Links
.Add(Exswimlane1.Elements.Item(1),Exswimlane1.Elements.Item(2))
End With
End With
|
|
36
|
How do I get the link from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exswimlane1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exswimlane1.MouseMoveEvent
Dim l
With Exswimlane1
l = .get_LinkFromPoint(-1,-1)
Debug.Print( l )
End With
End Sub
With Exswimlane1
With .Elements
.Add("Element <sha ;;0>A")
.Add("Element <sha ;;0>B",96,24)
End With
With .Links
.Add(Exswimlane1.Elements.Item(1),Exswimlane1.Elements.Item(2))
End With
End With
|
|
35
|
Is there a way to create a link which has the same start and end element
With Exswimlane1
With .Elements
.Add("Element")
End With
With .Links
.Add(Exswimlane1.Elements.Item(1),Exswimlane1.Elements.Item(1))
End With
End With
|
|
34
|
How can I show the pool's caption not-rotated or mirrored
With Exswimlane1
.BeginUpdate()
.AllowDesignHeader = exontrol.EXSWIMLANELib.AllowDesignHeaderEnum.exDesignHeaderSingle
With .Pools.Add(-150,-150,300,150)
.HeaderCaptionSupportRotate = False
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderLeft,48)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderRight,48)
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 3
End With
.EndUpdate()
End With
|
|
33
|
How can I prevent creating sub-lanes or sub-phases
With Exswimlane1
.BeginUpdate()
.AllowDesignHeader = exontrol.EXSWIMLANELib.AllowDesignHeaderEnum.exDesignHeaderSingle
With .Pools.Add(-150,-150,300,150)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderLeft,32)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderRight,32)
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 3
End With
.EndUpdate()
End With
|
|
32
|
How do I show a complete frame/border around the header
With Exswimlane1
.BeginUpdate()
With .Pools.Add(-150,-150,300,150)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderTop,32)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderBottom,32)
With .get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children
.Count = 3
.Item(1).Header.Pattern.Type = exontrol.EXSWIMLANELib.PatternEnum.exPatternFrameThick
End With
End With
.EndUpdate()
End With
|
|
31
|
How do I show a complete frame/border around the lane
With Exswimlane1
.BeginUpdate()
With .Pools.Add(-150,-150,300,150)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderTop,32)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderBottom,32)
With .get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children
.Count = 3
.Item(1).Pattern.Type = exontrol.EXSWIMLANELib.PatternEnum.exPatternFrameThick
End With
End With
.EndUpdate()
End With
|
|
30
|
How can I define sub-lanes
With Exswimlane1
.BeginUpdate()
With .Pools.Add(-150,-150,300,250)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderTop,32)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderBottom,32)
With .get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children
.Count = 3
.Item(1).Children.Count = 2
End With
End With
.EndUpdate()
End With
|
|
29
|
How can I add default lanes when the user creates a new pool
' AddPool event - A new pool has been added to the surface.
Private Sub Exswimlane1_AddPool(ByVal sender As System.Object, ByVal Pool As exontrol.EXSWIMLANELib.Pool) Handles Exswimlane1.AddPool
' Pool.HeaderSize(1) = 24
' Pool.HeaderVisible(0) = False
' Pool.HeaderVisible(1) = True
' Pool.HeaderVisible(2) = False
' Pool.HeaderVisible(3) = False
' Pool.Lane(1).Children.Count = 2
End Sub
With Exswimlane1
.BeginUpdate()
.Pools.Add(-100,-100,250,250)
.EndUpdate()
End With
|
|
28
|
How do I prevent showing headers when the user creates new pools
' AddPool event - A new pool has been added to the surface.
Private Sub Exswimlane1_AddPool(ByVal sender As System.Object, ByVal Pool As exontrol.EXSWIMLANELib.Pool) Handles Exswimlane1.AddPool
With Exswimlane1
With Pool
End With
End With
End Sub
With Exswimlane1
.BeginUpdate()
.Pools.Add(-100,-100,250,250).get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 3
.EndUpdate()
End With
|
|
27
|
How can I display icons on headers
With Exswimlane1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Pools.Add(-100,-100,250,250)
.set_HeaderVisible(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderLeft,False)
.set_HeaderVisible(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderRight,False)
.set_HeaderVisible(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderBottom,False)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderTop,24)
With .get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children
.Count = 3
.Item(0).Header.Caption = "<img>1</img> A"
.Item(1).Header.Caption = "<img>2</img> B"
.Item(2).Header.Caption = "<img>3</img> C"
End With
End With
.EndUpdate()
End With
|
|
26
|
How do I change the Lane and Phase strings being displayed on the lanes
With Exswimlane1
.BeginUpdate()
.set_DefPoolHeaderCaptionFormat(True,"<fgcolor 808080>Faza <off -4><b><font ;6>%i")
.set_DefPoolHeaderCaptionFormat(False,"<fgcolor 808080>Culoar <off -4><b><font ;6>%i")
With .Pools.Add(-100,-100,250,250)
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 3
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Count = 3
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Item(1).Header.Caption = "<fgcolor FF0000><b>NEW"
End With
.EndUpdate()
End With
|
|
25
|
How can I enlarge the node while AutoSize property is True (method 2)
With Exswimlane1
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exElementBackColor,Color.FromArgb(255,255,255))
With .Elements.Add("Element",0,0).Copy()
.Caption = "Enlarged Element"
.InflateSize = 16
End With
End With
|
|
24
|
How can I enlarge the node while AutoSize property is True (method 1)
With Exswimlane1
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exElementBackColor,Color.FromArgb(255,255,255))
With .Elements.Add("Element",0,0).Copy()
.Caption = "Enlarged Element"
.set_Padding(exontrol.EXSWIMLANELib.PaddingEdgeEnum.exPaddingAll,16)
End With
End With
|
|
23
|
How can I get the lane of the element
Dim lane
With Exswimlane1
.BeginUpdate()
.Pools.Add(-150,-150,500,250).get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 3
With .Elements.Add("Element")
.CenterOnLane(False)
lane = .get_LaneID(False)
Debug.Print( Exswimlane1.get_LaneByID(lane).Header.Caption )
End With
.EndUpdate()
End With
|
|
22
|
How can I define a different shape for elements
' AddElement event - A new element has been added to the surface.
Private Sub Exswimlane1_AddElement(ByVal sender As System.Object, ByVal Element As exontrol.EXSWIMLANELib.Element) Handles Exswimlane1.AddElement
With Exswimlane1
With Element
End With
End With
End Sub
With Exswimlane1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAChABAQDg6AADACAxRDQNABQKAAzQFAYahuHKGAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQwDiAUIjIK8IhkGIcZAGIBJCjWGodQLOEgwH" & _
"IERQjEyUJAGGYqEjaO41SpAdI0PCxUScACnDQiegJRgmQ4cTJSchSAKENx1JaeYReewwAqNd5TRwNIiydZUIhqGC1YRte4ZWiCWoJVzSVDLfbgAT4X60IIlCi5Mi6MIg" & _
"DZJFDUNLUdRBMKNJ7qagaWoWOaQRbmAQQTRYLQ/TiEXZDQRAAyLJIWVRQWTAAKVbw1LiEcznGCcejzIIDaZpOh4DplWzTOgALjta4IRpvNwAbIAF4gBqsLyXXLcdQyOR" & _
"MiwbxZgSDhgnQbJFC6F5JhECA8CADwIgMeQnmoQJlh0eAfGcXYZjwccOHiWx/moAJ6jed4DC2dJnnmQRxBcKABBoWAcHULZLHyV4mmGOx0FmdpZAMAgQhEQBpBiRxBlQ" & _
"cgZFUdAMEYAxQDECBNgaUYglkCQKBGZANk0QgBgQXAQgcGI0FwJAHA6WI+DGDAjCiVg0g2Yw4mYNg7E0eJ1H+DpkAiYhBg6JApBYRMvDkJhGhKJIImEA4QledZ8H+FJl" & _
"EEQhWBAJa8loRoCgkdhYBAExZHQKIXmUYRCFQI5mgWfZ4hMJpJC4boTGcCY0m0QJVBAIh2EIZZ5H4VIVAqeZ1H8M5oAmSg7g8TR1n4fQrmUQZCgqF5eEmYhYBgKQJiCD" & _
"4PmaegKhWJZnAQDZkhqaYKFocYnGadZ8h+KJoiGQhfEIURAmKEAYAgeo1H8OZrAoeoyhGKYngaHInmuCpOjmKAkHMHo+iiSZxmKQoXkGCwWigRQlnqLh7jKSh7DYUYzm" & _
"0CgAk+DIrFCAo3i6LYKnKWYuk6Wp4keKIqDsLh7BYLhJmaZo5mcYAijAOZtFsXpajubZLG6co8CSShtnYeJrGeVpzjwbxLnafI/mcK5ZnmPgtGuap+j6cIMB8CocDAK4" & _
"3AaQAwjwJwQkSaZsDcBI7jETBHBqRhxkibwWkCMQsgcG5Ii2TB+nkN5yEyJwjkqcJMh8DpKDKTIrB2TBmnyGwFkwMw8mcMpOmQbJbBiTwziyUxBDsc5sD8QJRnQKprEW" & _
"Tg0g0DxNlKMpsF8RpSHUTQ7BuUp0n0VxZi4MxrDSJ40DYDYHGKWJ2E2FxmyADYnGqMRBgeYh0FOLh9kccpcncJsVw7RdjvA2M4eovRmCSFkMwQIoAQEBA")
.Add(2,"gBFLBCJwBAEHhEJAAChABAIDg6AADACAxRDQNABQKAAzQFAYaBmG6GAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DAAUIjKLMIhmGAYJAGIBJCjWGodQLOEgwH" & _
"IERQjEyUpIyVAkYw5HqNaQjICoJoSOwAU47IaCIAFJSpCygKKgSjhRpoAAyU5IUgVPC4XSbD6zYDqapaTheEQyDSJNr3DCMUTlFYYLrmaQKMhqZJhWjbFSWXUpJ4pSrL" & _
"MIyfTwZRJGzIK7jabLIjaP6GUDhVaYbRUL46CiEb5AAJsVpCCZrYRJOYVdQeDYbQCNLDhHQIDqaA6kZRAdQ2bpMBznPSvbovDgLWhGYqhbLCNibRC+d4HNrCYIlCjpMw" & _
"3CYGIOHOMRsm0OxFjSZppneHQNFcSwRAOaprjqY4dgYe4VgGWwADucRuHYCpdByYROH8AAOC8D4NgEXwYBWEZyGAWoHg2MRCECBAkFAGhGDGUB1ByBhQkUIAPgCRAMEI" & _
"ExhIuNhCEKBAlnAcwQgAYQXAIIRWEUFwJAGQ42CiCoihiLgugsYwDjSZ4MkICJWCaDZjgiZg6EIQQInSV4PmKeIyEKEBkBQDhEgwZBzjSd4SlEQJgk+E5khkRhIhSZA5" & _
"FIUoVGWCQkl+FpkliTJnhXSYaFaGJOlEIhmC2ZoJgIZIaiWGYuG62IpDyT4TGSM5eGyCpmCnPIcCeQg+H6HZmnoAh6iAaBDjSL4hkUCgmgKHhlHmeIPh8BwKAqEohGkO" & _
"gOHCI4pAmMoMhUKByj6CQUCkWoGhSKJpGkJoQiOJR6G4cYTmcSQuiKKRqEqPovhmBIJiCN4YEACQGFsN5lliToyiwbAKkKQoSGcWQ2HKERrhiJJvjLUR8leL5sDsBpQi" & _
"UZZpDaO4eAACZWh+LYtDsSpejQbmJnIEAuEsLJvECRgLiSH46m2W4Gl+OxpFqWo0ECSR7lQaI9m8C4+nqO4uAIHp+B4MAJmcAAeC+YgenmPwwHwHInkKRYMDaWIQGmeh" & _
"3AmPpxDsCJHkWbhBAIdZDmMGZXBmRZMHwVwikUIwam0MAMC4awiEmOYyHsXwkkIMp5jMLBMDKaRiiqEBsmkNwpkwc5MyiHRrEKfxCiobIaFsQgvmsTBvD2SJuAwNBYkK" & _
"Sh6GsRYbDUDQ7EyVZmEwDwFiKdQ6BQf5XnYDRjD6IIujIfppBgKRcl6BZZnYXYLBWLYpn0KpglqLAtAIZoOneBsZw9RJjnQ+AYQAgCAg=")
.Add(3,"gBFLBCJwBAEHhEJAAChABQsMACAADACAxRDQNABQKAAzQFAYawLBgABhGUZoJhUAIIRZGMIjFDcEwxC6NIpAWCYQgUNQCQiNAzxAKQchhD4ZAIkGY4ZhyA42SBAcbyD" & _
"CEShoGqPRhmCg5UjmM4oQLSFDULC0fSBBIYaSGEY5QoqIYfArGQYQTRUPyUdoOBIACwLChWLA1CTZdowSKoYTXBq3IgqerIapmSYaV7YNh3VY1IR/JSVJYlaYJDoyNI4" & _
"ThHc5xVLtfSfAiiJrxOKcTAAFJ0QKFUbRUz+OgBTpvaZxagaSpSG5WRpWEI5PAdN4zTa7YDsS67FiSG5oWpEFq2eAGdzlVLMMqhG5gAxqNKzbLfMCXfJIbyrBIcYLoXI" & _
"tCqFYskMTwxlgAY+haFZRlQZQ4HwHR3AoMx5jEch2lMfZGl8eY+jYXBvBsAAHFeRQDmuRR8nsSI2CoEgIEIRQBiQYwdAcUZIGUUIQhGGAGECRAhDYChGFERAMCgQheEc" & _
"GQgHkEAwkICx2BCFoAj+B5iAiBgigiYhIgid4JkIQBwm2ChijiKgsguYpokYLYMmKQIiDYDgjgEAg6g6Y5InYPoPmOIAiEKEJFgkFIvhGYwIlIMoSTmAhOGgJJJC4UoS" & _
"iUSIcncKZlp8WoOAOAxeF6FBlEkNhPGcZgJhYU4ZiMMweGoDAmkGfhuhWJoJDgIIUCYeZWGGHYkhkWhuB+ZYhEIcIUmcKZSHeIJmgoFgyCeaIBgKCoYCgGYSHiI5oEoQ" & _
"gsiKBgKCCH4SOAfoGiQaZKPmJ5jGCIJniiZgpk6DonGkKomgOHpnjqFoCiaawKioSYXg0eoGi6KZrBqIo6hgEIal6GosiwCpuDIBgsEqDJniYa4bVuFYkDqepKjCLQJi" & _
"iR4XCyawGk+JpGgsZIXjabRbEKV4disSYwDCH5OlsIpWjmaA5HKUomCYOp+l6OgkhoUoWiMLpbH6bw7G0KRynOHYuGuXobhWB4MAaaoaimO52naB4hnkYInhERYLBAGA" & _
"hnECw+H2BwhkmSg7kMMIqHyb49hAECAg=")
.Add(4,"gBFLBCJwBAEHhEJAAChABOIDg6AADACAxRDQNABQKAAzQFAYaBqGCGAAGEZRSgmFgAQhFcZQTCsBw7DCEYxjOAwFgmEQxDIOIBQSKYcwiGQaRrkIYgEiONoaR7HchSF" & _
"IcIxPFKRBhkKYocjyG5GRoBcIyXAcRSYAB2Q4ESoKShePw5UDTcCzHR8RxEDKNRLpOQbDgOUZTWbVUaDKIsXzZCKHbZhG4YRp6CZKRpYEB1bYtKTRKqLKrpeTbOoSHol" & _
"TbiIATTYlG4THyEZQrDIaDjOSIXZaGFzwSDWGgBJ60bRwHIaAxGWoHRxfEZVfBONQHMSBc5xa64JyHAImWrcUbWfaYYZ0AC6MRkK8cXABPQANixKZsCizE4DDbTYzjRh" & _
"eC2F4nnEOJRG0BRXEWOICEocByiyCJTiQOJVGYIQ8gofpDgsG5uF+ah6D2Xp+GGP5gkCfwRHofwOnuSB2heVpZnIUZQhAIQJBQBoRgwdAdEcIYVEIQhGGAMQDBCBJYEU" & _
"GgNhCEMcHsXIkCIAAMIILQWAkAZDjYJIJiIWIeCqCRMHiNI/guYwIkYMoMmMSJWDaDZjgiTIzg6Yo4iIPoPGIdAmECChiFKXhGAQJIAmISgQCSSQ2E6E5lAkRhShSZRJ" & _
"FQOoVkCaRkAqFpQhIPhehCY54hYQoRCOYo+GaExOnmJhghqZhJjIYYbmaaJ0l+HJkiCYgtDGY5RkIegfmeSY6GOD4MnoBh1D2aBJkYbYhmcCgigaIhOloEJ3h0aATD4b" & _
"gWCkQoehaGAnniHhNgwKI6HaConmiSYCF4I5niGQoLDmaoAiKKoaE6eJ2H+HZnFoeohigKwqCwGItmqA4ejIHgrkIHo+iuEA4h6PGMmIHo1i0LIKk6SoMCSWwcm2LAki" & _
"sAAAgmQgLFYcw3myaxmkmG4GgsdIXjebYjjaVQIC0eQFAONADguBpqjaaIKlwGIuG4GwOkWOYAAqDoljqbIrmIJ41m4O5iGYK5FAwBp0ikag7mqbI+GoCwyEyPgpBCQw" & _
"Oj0KRBGKFgpnAbAjXWMQ8EaeIuG6a5SHWHZxFyBoIjEbA8FQCJJmiZAmmOORwHyCwXgkbwqn8LYoDKOZNAmJpinyOzTm8aZrBWH5QhGAxCCedBMm8L5Fi+fAEFCPgvks" & _
"Vp0h8NQBn8RpLi7NQKBALxLHyF43EaDRPDOMoxkqXp4kYaRLlMTQIDWbQeguR5iluBxCBgNBCH6dIJnaSZjF+LQZgGQSh5DOFEa4dQsi5GILsaA8ReBuHoEYZ4ZwkDFF" & _
"wJEYo2grjcHOFUAoFA7gJFqFEDYrQyilC+PwNgyRBBLH4C8FIzxiD8CeBYEgUQ9CtAiEwYgtQyDqDWPUTjBhXBrCmAcKoJQ6iGF6DEMA8BpieA4BgMQdxDg9GSOkLQgR" & _
"CjhHiDMV4Ewfh3AoGULIiBujRAuJ0c4+gEi4ASOkRAfhWgjCKKEFACCAg")
.Add(5,"gBFLBCJwBAEHhEJAAChABGgDg6AADACAxRDQNABQKAAzQFAYZBwGiGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ3DTJUBjIKcIhiGsgAzAJIUaw1DqGY7nKZoR" & _
"ioAIoSAMM7DCKUQSLGyQZqBSCQGjsAI+OyHAiABSNJwtHygIRoKqqHg2PoiSAEUZhdRlHShKSqLQiaIRSDUJZsW5EIyjBZ8EznOqbJApOKrCgOTYaWbUdSxPTEUwTFiX" & _
"JgmKRKIoiOAAY7IEgSFLsThrIKha5yDI4bxyAwXQjeYABbY0E4HQarcqzCrKGp/HYJXyAGgQHYkB5JAaQMBtGpoJrCeKQXDdVyXFwdET1BLZQA2HeUTTRVCScqnaTMZh" & _
"8DgGxniKfYbngAxFkmVJAnSdougwDhRlMGZ1GEPR9HQapDGWWhyCMe4ugQDx9naYRvm6cQfAUJ47m8cofBYAZOGCHg2mETgCBCERAGkGJHEGVByBkUwUCSIgChAMQIE2" & _
"BJRiQVQDAoEIWlWIxOgGBBcGyBQYlQXAkAcDpYh4KYKCKKI2CyC5ijONJvgySZ4lQWINkKCJmCWDpjkQaJPg+UA4joMYQiQI4eEYHAkgAYhKBgJJCh43JlAkEgwhSJA5" & _
"E4VoVE6UQCFoL5lkkBhXhUCR5gYOQKAieYUneGZlEmJhfhqZYJFIWgQCWQp+F6GxigmHJ3BoJ4JmYMw7maKZSH6HxoAiQhvhwZ1VHYFAogmBIXiAZ55jKDIQgeChGG+G" & _
"5BAoVJHiWaBYkIecznoOoeiMZYCj6IoYmcGhckeCophONoKh4aZagKLYrGkEZggeLJkCmThGDmZg5m6L4nmuOoCHaGJNnsBooAAIopCAcIZEiep2kqLwpnqCIviIBQLA" & _
"4dolEECZakuK4sksYhYAgLZLOsQJLHuBBIjibR7haWYfGwawhAOJpmBuGpajuJRJkYbxAmgORynCOZvgqApejcAgIG4OYUA0e5em+PhokQXhKAYKx8AsCo+FEcJDA6D5" & _
"MnwLwDkTWJulQQJuDEIphC2cQsHYbJEDCYJBAOLBrDIHwekUMBIiITgpmMcRhAOKYDgyRwnkyYwMjcK4cnAfAnCmSgzkoGhnkGZ45k6SIxjMTPIFCZOZEKSBxA0Fpui2" & _
"b5LFoKIqGoaY/FKUY1gmdpQjOKxbBIV4zi0DQ6nmOhmFkUophCLILEMV5YiWCZkH+W5nl2HxfiiMwQmMTZOmqLhaLsx9iUH6JAMI1hCDjECFQawhghjBG2DseoGQzhNH" & _
"wDwTAMAsgTEeCUZI1Q5jFHyLodYmWxB8GsPEVIPwxhSD6Awb4dgJD2HsAQQIoAQEB")
End With
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exElementBackColor,Color.FromArgb(255,255,255))
With .Elements
.Add("Rectangular",0,0).Shape = exontrol.EXSWIMLANELib.ShapeEnum.exShapeRectangular
.Add("Round",82,0).Shape = exontrol.EXSWIMLANELib.ShapeEnum.exShapeRound
.Add("Rhomb",138,0).Shape = exontrol.EXSWIMLANELib.ShapeEnum.exShapeRhomb
.Add("Circle",196,0).Shape = exontrol.EXSWIMLANELib.ShapeEnum.exShapeCircle
With .Add("EBN 1",0,36)
.BackColor32 = &H1000000
.Border = exontrol.EXSWIMLANELib.LinesStyleEnum.exNoLines
End With
With .Add("EBN 2",54,36)
.BackColor32 = &H2000000
.Border = exontrol.EXSWIMLANELib.LinesStyleEnum.exNoLines
End With
With .Add("EBN 3",108,36)
.BackColor32 = &H3000000
.Border = exontrol.EXSWIMLANELib.LinesStyleEnum.exNoLines
End With
With .Add("EBN 4 ",160,36)
.BackColor32 = &H4000000
.Border = exontrol.EXSWIMLANELib.LinesStyleEnum.exNoLines
End With
With .Add("EBN 5 ",220,36)
.BackColor32 = &H5000000
.MinHeight = 64
.MinWidth = 64
.Border = exontrol.EXSWIMLANELib.LinesStyleEnum.exNoLines
End With
End With
.set_ScrollPos(False,-160)
.EndUpdate()
End With
|
|
21
|
Is it possible to add an inner control on the surface
' OleEvent event - Occurs once an inside control fires an event.
Private Sub Exswimlane1_OleEvent(ByVal sender As System.Object, ByVal Element As exontrol.EXSWIMLANELib.Element, ByVal Ev As exontrol.EXSWIMLANELib.OleEvent) Handles Exswimlane1.OleEvent
With Exswimlane1
Debug.Print( Ev )
End With
End Sub
With Exswimlane1
With .Elements
With .Add("activex hosting")
.Type = exontrol.EXSWIMLANELib.ElementHostTypeEnum.exElementHostControl
.Control = "Forms.CommandButton.1"
.Caption = "Command Button"
.Height = 64
.Width = 128
.ElementFormat = "14;""caption""/""client"""
.CaptionAlign = exontrol.EXSWIMLANELib.ContentAlignmentEnum.exTopCenter
End With
End With
End With
|
|
20
|
How can I create a copy of the element
With Exswimlane1
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exElementBackColor,Color.FromArgb(255,255,255))
.Elements.Add("Element 1",0,0).Copy().Caption = "Aka"
End With
|
|
19
|
How can I define an opaque background for elements
With Exswimlane1
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exElementBackColor,Color.FromArgb(255,255,255))
.Elements.Add("Element 1",0,0)
.Elements.Add("Element 2",16,16)
End With
|
|
18
|
How can I show a different context-menu for all elements
' ActionContextMenu event - Occurs when the user selects an item from the object's context menu.
Private Sub Exswimlane1_ActionContextMenu(ByVal sender As System.Object, ByVal Action As exontrol.EXSWIMLANELib.ContextMenuObjectActionEnum, ByVal ObjectType As exontrol.EXSWIMLANELib.ContextMenuObjectTypeEnum, ByVal ObjectID As Object, ByVal CommandID As Integer, ByVal CommandChecked As Boolean, ByVal CommandCaption As Object, ByVal CommandValue As Object, ByRef Cancel As Boolean) Handles Exswimlane1.ActionContextMenu
With Exswimlane1
Debug.Print( Action )
Debug.Print( ObjectID )
Debug.Print( CommandID )
End With
End Sub
With Exswimlane1
.set_ContextMenu(exontrol.EXSWIMLANELib.ContextMenuObjectTypeEnum.exContextMenuElement,"Item 1[id=1000],Item 2[id=2000]")
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exElementBackColor,Color.FromArgb(255,255,255))
.Elements.Add("Element 1",0,0)
.Elements.Add("Element 2",16,16)
End With
|
|
17
|
How can I show a different context-menu for element
With Exswimlane1
Debug.Print( .Elements.Add("Element",0,0).InvokeContextMenu("Item 1[id=1000],Item 2[id=2000]") )
End With
|
|
16
|
How can I change the design-modes being shown on the control's toolbar
With Exswimlane1
.DesignModes = "Read-Only#0,Allow Any#3,Only-Element#1,Only-Pool#2"
End With
|
|
15
|
How can I change the default header's background color
With Exswimlane1
.BeginUpdate()
With .Pools.Add(-250,-150,500,250)
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 4
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Count = 4
End With
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exPoolHorizontalHeaderBackColor,Color.FromArgb(0,255,0))
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exPoolVerticalHeaderBackColor,Color.FromArgb(0,192,0))
.EndUpdate()
End With
|
|
14
|
How can I remove the Design item from the control's toolbar, to be locked ( no-design )
With Exswimlane1
.ToolBarFormat = "-1,100,101"
.DesignMode = exontrol.EXSWIMLANELib.DesignModeEnum.exDesignLock
End With
|
|
13
|
How can I remove/disable the Color and Display-Grid from the surface's context menu
With Exswimlane1
.set_ContextMenu(exontrol.EXSWIMLANELib.ContextMenuObjectTypeEnum.exContextMenuSurface,"Delete[id=-32004](All[id=-32000][ttp=Deletes all the objects from the surface],[sep],Elements[id=-32001][ttp=Deletes all elemen" & _
"ts from the surface],Links[id=-32002][ttp=Deletes all links from the surface],Pools[id=-32003][ttp=Deletes all pools from the su" & _
"rface])")
End With
|
|
12
|
How can I change the element's context-menu when the user right-clicks the element
' ActionContextMenu event - Occurs when the user selects an item from the object's context menu.
Private Sub Exswimlane1_ActionContextMenu(ByVal sender As System.Object, ByVal Action As exontrol.EXSWIMLANELib.ContextMenuObjectActionEnum, ByVal ObjectType As exontrol.EXSWIMLANELib.ContextMenuObjectTypeEnum, ByVal ObjectID As Object, ByVal CommandID As Integer, ByVal CommandChecked As Boolean, ByVal CommandCaption As Object, ByVal CommandValue As Object, ByRef Cancel As Boolean) Handles Exswimlane1.ActionContextMenu
' ContextMenuObjectFromID(ObjectType,ObjectID).BackColor = RGB(255,255,0)
With Exswimlane1
Debug.Print( Action )
Debug.Print( CommandCaption )
End With
End Sub
With Exswimlane1
.BeginUpdate()
.Elements.Add("element",0,0)
.set_ContextMenu(exontrol.EXSWIMLANELib.ContextMenuObjectTypeEnum.exContextMenuElement,"Simple,Value[edit=123],[sep],Popup(Check 1[chk],Check 2[chk=1])")
.EndUpdate()
End With
|
|
11
|
How do I prevent showing the context-menu when user right-clicks the surface
With Exswimlane1
.set_ContextMenu(exontrol.EXSWIMLANELib.ContextMenuObjectTypeEnum.exContextMenuSurface,"")
End With
|
|
10
|
How do I create parent-child (tree) lanes
With Exswimlane1
.BeginUpdate()
With .Pools.Add(-250,-150,500,250)
.set_HeaderSize(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderTop,32)
.set_HeaderVisible(exontrol.EXSWIMLANELib.HeaderPosEnum.exHeaderBottom,False)
With .get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children
.Count = 2
With .Item(0).Children
.Count = 2
.Item(0).Header.Caption = "Phase <b>1.1"
.Item(1).Header.Caption = "Phase <b>1.2"
End With
End With
End With
.EndUpdate()
End With
|
|
9
|
How do I create a pool with horizontal and lanes
With Exswimlane1
.BeginUpdate()
With .Pools.Add(-250,-150,500,250)
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 4
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Count = 4
End With
.EndUpdate()
End With
|
|
8
|
How do I add programatically a pool with horizontal lanes
With Exswimlane1
.BeginUpdate()
With .Pools.Add(-250,-150,500,250)
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 4
End With
.EndUpdate()
End With
|
|
7
|
How do I add programatically a pool with vertical lanes
With Exswimlane1
.BeginUpdate()
With .Pools.Add(-250,-150,500,250)
.get_Lane(exontrol.EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Count = 4
End With
.EndUpdate()
End With
|
|
6
|
How can I change the toolbar's visual appearance
With Exswimlane1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarAppearance,&H1000000)
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarBackColor,Color.FromArgb(255,255,255))
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarForeColor,Color.FromArgb(40,40,40))
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonDownBackColor,&H1606060)
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonDownForeColor,Color.FromArgb(240,240,240))
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonHotBackColor,&H1a0a0a0)
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonHotForeColor,Color.FromArgb(255,255,255))
End With
|
|
5
|
How can I change the toolbar's background color
With Exswimlane1
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarBackColor,Color.FromArgb(255,255,255))
End With
|
|
4
|
How can I fit or ensure that all elements are in the control's client area
With Exswimlane1
With .Elements
.Add("Element A",-500,-500).BackColor = Color.FromArgb(0,255,0)
.Add("Element B",500,500).BackColor = Color.FromArgb(255,0,0)
.Add("Element C",48,24)
End With
.FitToClient()
End With
|
|
3
|
Context Menu - Microsoft Windows 8.1 - Ribbon Like
With Exswimlane1
.BeginUpdate()
With .VisualAppearance
.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn")
.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn")
.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn")
.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn")
.Add(17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn")
.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn")
.Add(30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn")
.Add(31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn")
.Add(32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn")
.Add(33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn")
.Add(34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn")
.Add(35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn")
End With
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuAppearance,&H1000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolTipAppearance,&H1fefefe)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelBackColor,&He000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarAppearance,&H1000000)
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarBackColor,Color.FromArgb(255,255,255))
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonHotBackColor,&Hc000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonDownBackColor,&He000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuHotBackColor,&Hc000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelHotBackColor,&H23000000)
.set_Background32(&H2,&H22000000)
.set_Background32(&H3,&H23000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exCheckBoxState0,&H20000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exCheckBoxState1,&H21000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exRadioButtonState0,&H1e000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exRadioButtonState1,&H1f000000)
.EndUpdate()
End With
|
|
2
|
Context Menu - Microsoft Paint - Ribbon Like
With Exswimlane1
.BeginUpdate()
With .VisualAppearance
.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn")
.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn")
.Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn")
.Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn")
.Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn")
.Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn")
.Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn")
.Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn")
.Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn")
.Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn")
.Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn")
.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn")
.Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn")
.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn")
.Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn")
.Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn")
.Add(17,"CP:16 0 0 0 1")
.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn")
.Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn")
.Add(20,"CP:19 0 0 0 1")
End With
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuAppearance,&H1000000)
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuForeColor,Color.FromArgb(21,66,139))
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelBackColor,&He000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolTipAppearance,&H1fefefe)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarAppearance,&H1000000)
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarBackColor,Color.FromArgb(255,255,255))
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonHotBackColor,&Hd000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonDownBackColor,&H1000000)
.set_Background32(&H2,&Hd000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameSingle,&H5000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHStart,&H6000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHIntermediate,&H7000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHEnd,&H8000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVStart,&H9000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVIntermediate,&Ha000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVEnd,&Hb000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuHotBackColor,&Hc000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelHotBackColor,&Hf000000)
.EndUpdate()
End With
|
|
1
|
Context Menu - Microsoft Office - Ribbon Like
With Exswimlane1
.BeginUpdate()
With .VisualAppearance
.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn")
.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn")
.Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn")
.Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn")
.Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn")
.Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn")
.Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn")
.Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn")
.Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn")
.Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn")
.Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn")
.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn")
.Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn")
.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn")
.Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn")
.Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn")
.Add(17,"CP:16 0 0 0 1")
.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn")
.Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn")
.Add(20,"CP:19 0 0 0 1")
End With
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuAppearance,&H1000000)
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuForeColor,Color.FromArgb(21,66,139))
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolTipAppearance,&H1fefefe)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarAppearance,&H1000000)
.set_Background(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarBackColor,Color.FromArgb(255,255,255))
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonHotBackColor,&Hd000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonDownBackColor,&H1000000)
.set_Background32(&H2,&Hd000000)
.set_Background32(&H3,&H1000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameSingle,&H5000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHStart,&H6000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHIntermediate,&H7000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHEnd,&H8000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVStart,&H9000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVIntermediate,&Ha000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVEnd,&Hb000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuHotBackColor,&Hc000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelBackColor,&He000000)
.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelHotBackColor,&Hf000000)
.EndUpdate()
End With
|